\start83\
\comment=Program file dated 04/21/00, 15:36
\name=PNTPLOTR
ClrHome
Disp "STARTING UP..."
Full
Float
Real
FnOff 
PlotsOff 
ZStandard
RectGC
CoordOn
GridOff
AxesOn
LabelOff
ExprOn
\L\PPDAT\->\L\1\
\L\PPSET\->\L\2\
ClrHome
Disp "LOADING YOUR","SETTINGS..."
L\2\(1)\->\Xmin
L\2\(2)\->\Xmax
L\2\(3)\->\Xscl
L\2\(4)\->\Ymin
L\2\(5)\->\Ymax
L\2\(6)\->\Yscl
L\2\(7)\->\Xres
L\2\(8)\->\E
L\2\(9)\->\F
L\2\(10)\->\G
If F=0
AxesOff
If F=1
AxesOn
If G=0
GridOff
If G=1
GridOn
ClrHome
Disp " POINT PLOTTER"
Pause 
ClrHome
Disp "BY","","KIROS LIONHEART"
Pause 
ClrHome
Lbl 1
ClrHome
Menu("POINT PLOTTER","NEW DATA",2,"LOAD DATA",3,"SETTINGS",4,"INFO",I,"QUIT",5)
Lbl I
ClrHome
Disp "VERSION 2.0 SP1","   RELEASE 6"
Pause 
Goto 1
Lbl 2
ClrHome
Input "TYPE COORDINATES",L\1\
If ((1)/(2))dim(L\1\)\!=\int(((1)/(2))dim(L\1\))
Then
ClrHome
Disp "ERR:INVALID DIM"
Pause 
Goto 1
End
1\->\C
prgmZPPLOT
Lbl 6
ClrHome
Menu("IMAGE CHANGES","ADD",7,"SUBTRACT",8,"MULTIPLY",9,"DIVIDE",10,"RE-PLOT DATA",11,"RE-DEFINE DATA",12,"NEXT PAGE",13)
Lbl 13
ClrHome
Menu("IMAGE CHANGES","SAVE DATA",14,"LOAD DATA",15,"BACK",16,"PREVIOUS PAGE",6)
Lbl 7
ClrHome
Menu("ADD","X",17,"Y",18,"BOTH",19,"BACK",6)
Lbl 17
ClrHome
Input "NUMBER TO +    X",A
For(X,1,dim(L\1\),2)
L\1\(X)+A\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 18
ClrHome
Input "NUMBER TO +    Y",B
For(X,2,dim(L\1\),2)
L\1\(X)+B\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 19
ClrHome
Input "NUMBER TO +    X",A
Input "NUMBER TO +    Y",B
For(X,1,dim(L\1\),2)
L\1\(X)+A\->\L\1\(X)
End
For(X,2,dim(L\1\),2)
L\1\(X)+B\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 8
ClrHome
Menu("SUBTRACT","X",20,"Y",21,"BOTH",22,"BACK",6)
Lbl 20
ClrHome
Input "NUMBER TO -    X",A
For(X,1,dim(L\1\),2)
L\1\(X)-A\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 21
ClrHome
Input "NUMBER TO -    Y",B
For(X,2,dim(L\1\),2)
L\1\(X)-B\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 22
ClrHome
Input "NUMBER TO -    X",A
Input "NUMBER TO -    Y",B
For(X,1,dim(L\1\),2
L\1\(X)-A\->\L\1\(X)
End
For(X,2,dim(L\1\,2)
L\1\(X)-B\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 9
ClrHome
Menu("MULTIPLY","X",23,"Y",24,"BOTH",25,"BACK",6)
Lbl 23
ClrHome
Input "NUMBER TO *    X",A
For(X,1,dim(L\1\),2)
L\1\(X)*A\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 24
ClrHome
Input "NUMBER TO *    Y",B
For(X,2,dim(L\1\),2)
L\1\(X)*B\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 25
ClrHome
Input "NUMBER TO *    X",A
Input "NUMBER TO *    Y",B
For(X,1,dim(L\1\),2)
L\1\(X)*A\->\L\1\(X)
End
For(X,2,dim(L\1\),2)
L\1\(X)*B\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 10
ClrHome
Menu("DIVIDE","X",26,"Y",27,"BOTH",28,"BACK",6)
Lbl 26
ClrHome
Input "NUMBER TO /    X",A
For(X,1,dim(L\1\),2)
L\1\(X)/A\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 27
ClrHome
Input "NUMBER TO /    Y",B
For(X,2,dim(L\1\),2)
L\1\(X)/B\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 28
ClrHome
Input "NUMBER TO /    X",A
Input "NUMBER TO /    Y",B
For(X,1,dim(L\1\),2)
L\1\(X)/A\->\L\1\(X)
End
For(X,2,dim(L\1\),2)
L\1\(X)/B\->\L\1\(X)
End
0\->\C
prgmZPPLOT
Goto 6
Lbl 11
ClrHome
ClrDraw
0\->\C
prgmZPPLOT
Goto 6
Lbl 12
ClrHome
Disp "ARE YOU SURE YOU","WANT TO","RE-DEFINE THE","DATA?"
Input "YES=1- ",D
If D\!=\1
Goto 6
ClrHome
Input "ENTER NEW VALUES",L\1\
If ((1)/(2))dim(L\1\)\!=\int(((1)/(2))dim(L\1\))
Then
ClrHome
Disp "ERR:INVALID DIM"
Pause 
Goto 6
End
ClrDraw
0\->\C
prgmZPPLOT
Goto 6
Lbl 14
ClrHome
Disp "ARE YOU SURE YOU","WANT TO SAVE?"
Input "YES=1- ",D
If D\!=\1
Goto 13
ClrHome
Disp "SAVING..."
L\1\\->\\L\PPDAT
ClrHome
Disp "SAVE COMPLETED"
Pause 
Goto 13
Lbl 15
ClrHome
Disp "ARE YOU SURE YOU","WANT TO LOAD?"
Input "YES=1- ",D
If D\!=\1
Goto 13
ClrHome
Disp "LOADING..."
\L\PPDAT\->\L\1\
ClrHome
Disp "DATA LOADED"
Pause 
ClrHome
ClrDraw
0\->\C
prgmZPPLOT
Goto 13
Lbl 16
ClrHome
Disp "ARE YOU SURE YOU","WANT TO GO BACK?"
Input "YES=1- ",D
If D\!=\1
Goto 13
Goto 1
Lbl 3
Goto 15
Lbl 4
ClrHome
Menu("SETTINGS","WINDOW",29,"CONNECTED",30,"AXES",31,"GRID",32,"SAVE SETTINGS",34,"BACK",33)
Lbl 29
ClrHome
Disp "WINDOW"
Prompt Xmin,Xmax,Xscl,Ymin,Ymax,Yscl,Xres
Goto 4
Lbl 30
ClrHome
Disp "CONNECTED","OFF=0"
Input "ON=1- ",E
If E\!=\0 and E\!=\1
0\->\E
Goto 4
Lbl 31
ClrHome
Disp "AXES","OFF=0"
Input "ON=1- ",F
If F=0
AxesOff
If F=1
AxesOn
If F\!=\0 and F\!=\1
0\->\F
Goto 4
Lbl 32
ClrHome
Disp "GRID","OFF=0"
Input "ON=1- ",G
If G=0
GridOff
If G=1
GridOn
If G=0 and G\!=\1
0\->\G
Goto 4
Lbl 33
ClrHome
{Xmin,Xmax,Xscl,Ymin,Ymax,Yscl,Xres,E,F,G}\->\L\2\
Goto 1
Lbl 34
ClrHome
L\2\\->\\L\PPSET
Disp "SETTINGS SAVED"
Pause 
Goto 4
Lbl 5
ClrHome
Disp "EXITING..."
ClrDraw
ZStandard
GridOff
AxesOn
ClrList L\1\,L\2\
0\->\A
0\->\B
0\->\X
0\->\C
0\->\E
0\->\F
0\->\G
ClrHome
Stop
\stop83\

